Cursor bewegen

In BASIC geht erstmal nur das, was am Bildschirm zu sehen ist. Aber man kann ja mit

L. 100,200

nur einen Teil des Listings ausgeben lassen.

CTRL und 1

Hilft beim Anhalten eines Listings.

Hi, ich hatte vor etlichen Monaten mal ein kleines Basic-Programm geschrieben, das es ermöglicht ein Basic-Listing anzuzeigen und vorwärts und Rückwärts zu scrollen.

Ist in Turbobasic geschrieben und extrem primitiv. Speichert man es als LISTER.LST ab kann es von jedes andere Basic Programm per ENTER"D:LISTER.LST" geladen werden. Fängt das eigene Basic aber schon bei Zeile 10 an, kann ein RENUM 0,100,10 in TurboBasic helfen die Zeilennummern anzupassen. Man startet den Lister mittels RUN, * Space drücken für Abbruch, * hoch und runter für jeweils 100 Zeilen weiter scrollen. * Links und Rechts geht in 10er Schritten weiter, * Plus und Minus erhöht/vermindert den Zeilen Step, sollte das jeweilige Listing für den kleinen Screen zu lang sein. * R startet das eigentliche Programm.

Wer das für das alte Atari Basic braucht, kann es sich gerne umschreiben. Ist nur mal als Idee entstanden.

Damals kam man noch nicht auf die Idee von solchen Tools.

Hier der Code ohne lästige Zeilennummern

START=10
LET STP=100
DO
  LET ENDE=START+STP-%1
  CLS
  ? "L:";START;",";ENDE;"     + - STOP R:RUN"   :REM Hier fehlen die Steuerzeichen, diese aus dem Bild nehmen, sorry!
  LIST START,ENDE
  GET KEY
  IF KEY=29:START=START+STP:ENDIF
  IF KEY=28:START=START-STP
    IF START<0 THEN START=100
  ENDIF
  IF KEY=31:START=START+10:ENDIF
  IF KEY=30:START=START-10:ENDIF
  IF KEY=43:STP=STP+10:ENDIF
  IF KEY=45:STP=STP-10:ENDIF
  IF KEY=32:STOP :ENDIF
  IF KEY=82:GO# BEGIN:ENDIF
LOOP
# BEGIN

Leider fehlen die Sonderzeichen, die sind oben im Bild zu sehen und nur für die Statuszeile da.

Lars

pps schrieb: In BASIC geht erstmal nur das, was am Bildschirm zu sehen ist. Aber man kann ja mit

L. 100,200

nur einen Teil des Listings ausgeben lassen.

CTRL und 1

Hilft beim Anhalten eines Listings.

Und mit der Break-Taste brichst du die Ausgabe ab, wenn du eine gesuchte Stelle gefunden hast (egal, ob die Ausgabe mit Control+1 angehalten wurde).

Ich habe die Freiheit, auf dem Bildschirm mit dem Cursor herumtanzen zu können immer gerne einem Editor, bei dem ich nur innerhalb des Textes bleiben konnte, vorgezogen.